Single_salt:IC

## tibble [17 x 4] (S3: tbl_df/tbl/data.frame)
##  $ navn      : num [1:17] 0 1 1 1 2 2 2 3 3 3 ...
##  $ Na  [mg/l]: num [1:17] 82 77 77 61 80 80 63 85 85 66 ...
##  $ Cl  [mg/l]: num [1:17] 131 117 118 97 120 120 100 127 125 105 ...
##  $ ...4      : chr [1:17] "Feed" "Feed" "Retentate" "Permeate" ...

## tibble [17 x 4] (S3: tbl_df/tbl/data.frame)
##  $ navn      : num [1:17] 0 1 1 1 2 2 2 3 3 3 ...
##  $ Ca  [mg/l]: num [1:17] 119 118 115 45 132 133 49 150 150 54 ...
##  $ Cl  [mg/l]: num [1:17] 216 223 220 106 246 248 109 277 265 121 ...
##  $ ...4      : chr [1:17] "Feed" "Feed" "Retentate" "Permeate" ...

## tibble [17 x 4] (S3: tbl_df/tbl/data.frame)
##  $ navn        : num [1:17] 0 1 1 1 2 2 2 3 3 3 ...
##  $ SiO2  [mg/l]: num [1:17] 64.1 60.7 62 52.8 60.3 62.7 55.5 63.6 63.9 54.7 ...
##  $ Na  [mg/l]  : num [1:17] 47.6 48.5 48.3 21.1 53 52.7 24.4 59.5 58.9 27 ...
##  $ ...4        : chr [1:17] "Feed" "Feed" "Retentate" "Permeate" ...

## [1] 23.19

## [1] 23.77

## [1] 24.13

## [1] 24.29

## [1] 24.42

#data fra MgSO4 forsøg ikke ICR. 

Mg_IC_data <- read_excel("data/ICR/IC_data_ICR_udvalgtdata_igen.xlsx",5)

old_names_IC=colnames(Mg_IC_data) #Vi finder de latterlige navne kolonnerne i dataen har 
new_names_IC=c("time","Stream","Dilution","Mg_1_mg/L","Mg_2_mg/L") #Vi finder på nogle lidt bedre nogle
Mg_IC_data = Mg_IC_data %>% rename_at(vars(old_names_IC),~new_names_IC) #Vi ændrer navnene til de nye
Mg_IC_data <- as.data.frame(Mg_IC_data)
#noget med gennemsnit. 

Mg_IC_data <-Mg_IC_data%>%mutate(avg_mgL=(rowMeans(Mg_IC_data[,c("Mg_1_mg/L","Mg_2_mg/L")],na.rm=TRUE)))%>%
mutate(std_mgL=(rowSds(as.matrix(Mg_IC_data[,c("Mg_1_mg/L","Mg_2_mg/L")],na.rm=TRUE))))


SO4_IC_data <- read_excel("data/ICR/IC_data_ICR_udvalgtdata_igen.xlsx",2)

old_names_IC=colnames(SO4_IC_data) #Vi finder de latterlige navne kolonnerne i dataen har 
new_names_IC=c("time","Stream","Dilution","SO4_1_mg/L","SO4_2_mg/L") #Vi finder på nogle lidt bedre nogle
SO4_IC_data = SO4_IC_data %>% rename_at(vars(old_names_IC),~new_names_IC) #Vi ændrer navnene til de nye
SO4_IC_data <- as.data.frame(SO4_IC_data)
#noget med gennemsnit. 

SO4_IC_data <-SO4_IC_data%>%mutate(avg_mgL=(rowMeans(SO4_IC_data[,c("SO4_1_mg/L","SO4_2_mg/L")],na.rm=TRUE)))%>%
                          mutate(std_mgL=(rowSds(as.matrix(SO4_IC_data[,c("SO4_1_mg/L","SO4_2_mg/L")],na.rm=TRUE))))%>%mutate(Std_p=((std_mgL/avg_mgL)*100))
SO4_IC_data <- SO4_IC_data[-c(1:36),]
SO4_IC_data[is.na(SO4_IC_data)]=0
SO4_IC_data$Stream[1:3] = c("Feed","Feed","Feed")
SO4_IC_data$Stream[4:6] = "Permeate"